home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
doctor
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
57 lines
0010 //DOCTOR WILLIAM OLDHAM'S PROGRAM//
0020 //WRITTEN BY ELISABETH OLDHAM//
0030 //THIS VERSION: OCTOBER 2, 1981//
0040 //*
0050 //DECLARATIONS//
0060 DIM COLOUR$ OF 10, ANSW$ OF 10
0070 //*
0080 //MAINLINES//
0090 PRINT CHR$(147) //CLEAR SCREEN//
0100 REPEAT
0110 FOR I:=1 TO 8 DO PRINT //8 DOWN
0120 PRINT "WHAT IS THE COLOUR OF YOU FACE"
0130 PRINT "(PALE/PINK/BLUE/YELLOW)",
0140 INPUT COLOUR$
0150 DIAGNOSIS
0160 PRINT CHR$(19) //HOME
0170 PRINT "MORE PATIENTS (Y/N)",
0180 INPUT ANSW$
0190 PRINT CHR$(147) //CLEAR SCREEN//
0200 UNTIL ANSW$="N"
0210 //*
0220 PROC DIAGNOSIS
0230 PRINT
0240 CASE COLOUR$ OF
0250 WHEN "PALE"
0260 PRINT "YOU SUFFER FROM ANAMEIA"
0265 PRINT "AND NEED SOME IRON."
0270 PRINT "GO HOME AND MAKE SOUP"
0275 PRINT "FROM YOUR BICYCLE."
0280 WHEN "PINK"
0290 PRINT "YOU ARE JUST FINE"
0295 PRINT "PLEASE DO NOT WASTE MY TIME."
0300 PRINT "DID YOU NOT KNOW"
0305 PRINT "THAT MONEY IS VERY TIGHT IN"
0310 PRINT "THE NATIONAL HEALTH SERVICE THESE DAYS."
0320 WHEN "BLUE"
0330 PRINT "YOU HAVE BEEN DRINKING FAR TOO MUCH."
0340 PRINT "YOU ARE HEREBY FORBIDDEN TO TAKE ANY"
0350 PRINT "BEVERAGES FOR THE NEXT 30 YEAR - IF"
0360 PRINT "YOU GET THAT OLD!"
0370 WHEN "YELLOW"
0380 PRINT "ARE YOU A CHINESE (Y/N)",
0390 INPUT ANSW$
0400 IF ANSW$="Y" THEN
0410 PRINT
0420 PRINT "THERE IS NOTHING THE MATTER WITH YOU."
0430 PRINT "THE COLOUR OF YOUR SKIN IS NORMAL."
0440 ELSE
0450 PRINT "YOU HAVE GOT THE YELLOW FEVER, AND YOU"
0460 PRINT "SHOULD NOT GO TO AFRICA ANY MORE."
0470 PRINT "YOU MAY TRY TO PAINT YOUR SKIN TO"
0480 PRINT "LOOK A BIT MORE ATTRACTIVE."
0490 ENDIF
0500 ENDCASE
0510 ENDPROC DIAGNOSIS
0520 //